home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
ls 7
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
714b
|
42 lines
100 REM SPRITE 0 BEWEGEN + ANIMIEREN
110 REM
120 REM VORBEREITUNGEN
130 REM
140 REM FARBEN
150 POKE 53280,5:POKE53281,0
160 POKE 53285,8:POKE53286,11:POKE53287,7
170 REM
180 XREG=53248:XLAUF=53264
190 YREG=53249:BL=128
200 REM
210 POKE53276,1:REM SPRITE 0 MULTICOLOR
220 POKE2040,BL:REM SPRITEZEIGER AUF DATEN
230 POKEXREG,0:POKEXLAUF,0:POKEYREG,117:REM ANFANGSPOS.
240 POKE 53269,1:REM SPRITE 0 AN
250 GOSUB470:REM BODEN ZEICHNEN
260 REM
270 REM SPRITE BEWEGEN
280 REM
290 FORX=1TO350STEP2
300 XP=X
310 IF XP<=255 THEN POKE XLAUF,0
320 IF XP>255 THEN POKE XLAUF,1:XP=XP-255
330 POKE XREG,XP
340 GOSUB400:REM ANIMATION
350 NEXT X
360 GOTO230
370 REM
380 REM ANIMATION
390 REM
400 BL=BL+1
410 IFBL>135THENBL=128
420 POKE2040,BL
430 RETURN
440 REM
450 REM BODEN ZEICHNEN
460 REM
470 PRINT"[147]";
480 FORW=1TO40:PRINT" ";:NEXTW
490 PRINT"[146]"
500 RETURN